10 DIM X(30), Y(30) : C% = 30 : R1 = 18 : R2 = 146
15 LB$ ="                              "
20 CL$ = "                                       "
25 POKE 53280, 3 : POKE 53281, 3
30 INPUT"[147]ENTER TITLE FOR X-AXIS";XT$
31 INPUT"ENTER TITLE FOR Y-AXIS";YT$
32 INPUT"ENTER TITLE FOR PLOT 1";T1$
33 INPUT"ENTER TITLE FOR PLOT 2";T2$
35 :
40 PRINT "[147]"
45 PRINT TAB(06) "" "" LB$ "  "
50 FOR L=1 TO 20 : PRINT TAB(06) "" "" " " "" LB$ "" " " : NEXT
55 PRINT TAB(6) "" "" "[178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178] "
60 PRINT TAB(6) "[145]" "" "[219]";
65 FOR I=1 TO 4 : PRINT "[157][145][194][157][145][194][157][145][194][157][145][194][157][145][179]"; : NEXT : PRINT "[146]";
70 INPUT"NUMBER OF SETS";NS:PRINT""LB$
72 INPUT"MAXIMUM X VALUE";XHI:PRINT""LB$
74 INPUT"MINIMUM X VALUE";XLO:PRINT""LB$
75 INPUT"X SCALAR (XF)";XF:PRINT""LB$
76 SX=(XHI-XLO)/30:XB=INT(XHI*XF):XS=INT(XLO*XF)
80 PRINT""CL$"";:INPUT"MAXIMUM Y VALUE";YHI:PRINT""LB$
82 INPUT"MINIMUM Y VALUE";YLO:PRINT""LB$
84 INPUT"Y SCALAR (YF)";YF:PRINT""LB$
85 SY=(YHI-YLO)/20 : YB=INT(YHI*YF) : YS=INT(YLO*YF)
90 PRINT "" TAB(5-LEN(STR$(YB))) YB : POKE 214,11 : PRINT
95 PRINT YT$ : POKE 214,21 : PRINT : PRINT TAB(5-LEN(STR$(YS))) YS
100 PRINTTAB(6-INT(LEN(STR$(XS))/2))XSTAB(35-INT((LEN(STR$(XB))-1)/2))XB
105 PRINT TAB(20) XT$;
115 PRINT "" CL$ "" "HOW MANY POINTS";
120 INPUT NP
125 PRINT "" CL$ ""; : INPUT "DATA FROM KEYBOARD OR DISK";AN$
130 PRINT "" CL$ ""; : IF AN$ = "K" THEN 155
135 INPUT "INSERT DISK; ENTER FILE NAME";FF$
140 OPEN 8,8,8,"0:"+FF$+",S,R"
145 FOR I = 1 TO NP : INPUT#8,X(I),Y(I) : NEXT
150 CLOSE 8 : GOTO 165
155 FOR I=1 TO NP : PRINT "ENTER X,Y OF PT#";I;
160 INPUT X(I), Y(I) : PRINT "" CL$ ""; : NEXT
165 FORI=1TONP:X(I)=(X(I)-XLO)/SX:Y(I)=(Y(I)-YLO)/SY:NEXT:PRINTCHR$(C%);
170 FOR I = 1 TO NP : POKE 214,21 : PRINT : POKE 211,05
175 IX = INT(X(I))
180 IY = INT(Y(I)): FY = Y(I) - IY
185 FOR J = 0 TO IX : PRINT ""; : NEXT
190 IF IY = 0 THEN PRINT "[145]"; : GOTO 200
195 FOR J=1 TO IY : PRINT "[145]" CHR$(R2) CHR$(32) "[157]"; : NEXT : PRINT "[145]";
200 IF FY < 0.06 THEN 245
205 IF FY < 0.18 THEN PRINT CHR$(R1) CHR$(164) : GOTO 245
210 IF FY < 0.31 THEN PRINT CHR$(R1) CHR$(175) : GOTO 245
215 IF FY < 0.43 THEN PRINT CHR$(R1) CHR$(185) : GOTO 245
220 IF FY < 0.56 THEN PRINT CHR$(R1) CHR$(162) : GOTO 245
225 IF FY < 0.68 THEN PRINT CHR$(R2) CHR$(184) : GOTO 245
230 IF FY < 0.81 THEN PRINT CHR$(R2) CHR$(183) : GOTO 245
235 IF FY < 0.93 THEN PRINT CHR$(R2) CHR$(163) : GOTO 245
240 IF FY < 0.99 THEN PRINT CHR$(R2) CHR$(32) : GOTO 245
245 PRINT CHR$(146) : NEXT
250 NS = NS - 1 : R1 = 146 : R2 = 18 : C% = 31
255 IF NS > 0 THEN 115
260 PRINT "" CL$ "" TAB(10) "" "" T1$ SPC(3) "" "[146]" T2$
265 GET N$ : IF N$ ="" THEN 265
270 :
300 PRINT"[147]WOULD YOU LIKE TO DO ANOTHER?"
310 POKE198,0:WAIT198,1:GETK$
320 IFK$<>"Y"ANDK$<>"N"THENPOKE53280,RND(1)*255:GOTO310
330 IFK$="Y"THENRUN
340 :
350 LOAD"PAYLOAD CONNECT",8
360 END